﻿<Serializable()> _
Public Class EcargarDocumentos

#Region "           Atributos                       "
    Private _idDcmto As Int32
    Private _nroDocumento As String
    Private _rutaDcmto As String
    Private _estado As String
    Private _desEstado As String
    Private _idUsuario As Int32
    Private _fecha As String
    Private _nombreDocumento As String
    Private _NombreCompleto As String
    Private _idDcmtoRutaDcmto As String
    Private _codigoSeparacion As String
#End Region

#Region "           Propiedades                     "
    Public Property idDcmto() As Integer
        Get
            Return _idDcmto
        End Get
        Set(ByVal value As Integer)
            _idDcmto = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property rutaDcmto() As String
        Get
            Return _rutaDcmto
        End Get
        Set(ByVal value As String)
            _rutaDcmto = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property desEstado() As String
        Get
            Return _desEstado
        End Get
        Set(ByVal value As String)
            _desEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property fecha() As String
        Get
            Return _fecha
        End Get
        Set(ByVal value As String)
            _fecha = value
        End Set
    End Property
    Public Property nombreDocumento() As String
        Get
            Return _nombreDocumento
        End Get
        Set(ByVal value As String)
            _nombreDocumento = value
        End Set
    End Property
    Public Property NombreCompleto() As String
        Get
            Return _NombreCompleto
        End Get
        Set(ByVal value As String)
            _NombreCompleto = value
        End Set
    End Property
    Public Property idDcmtoRutaDcmto() As String
        Get
            Return _idDcmtoRutaDcmto
        End Get
        Set(ByVal value As String)
            _idDcmtoRutaDcmto = value
        End Set
    End Property
    Public Property codigoSeparacion() As String
        Get
            Return _codigoSeparacion
        End Get
        Set(ByVal value As String)
            _codigoSeparacion = value
        End Set
    End Property

#End Region

#Region "           Propiedades Avanzadas           "
    'Public ReadOnly Property idDcmtoRutaDcmto() As String
    '    Get
    '        Return idDcmto.ToString + "," + rutaDcmto
    '    End Get
    'End Property
    Public ReadOnly Property rutaScannerDisplay() As String
        Get
            If rutaDcmto.Length > 0 Then
                Return rutaDcmto.Substring(rutaDcmto.IndexOf("@") + 1, rutaDcmto.Length - rutaDcmto.IndexOf("@") - 1)
            Else
                Return rutaDcmto
            End If
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idAccion As Int32, ByVal rutaDcmto As String)
        Me.idDcmto = idAccion
        Me.rutaDcmto = rutaDcmto
    End Sub
    Public Sub New(ByVal idAccion As Int32, ByVal nroDocumento As String, ByVal rutaDcmto As String, _
                   ByVal estado As String, ByVal idUsuario As Integer)
        Me.idDcmto = idAccion
        Me.nroDocumento = nroDocumento
        Me.rutaDcmto = rutaDcmto
        Me.estado = estado
        Me.desEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
    End Sub
    Public Sub New(ByVal idAccion As Int32, ByVal nroDocumento As String, ByVal rutaDcmto As String, _
               ByVal estado As String, ByVal idUsuario As Integer, ByVal NombreCompleto As String, ByVal nombreDocumento As String, ByVal fecha As String, ByVal idDcmtoRutaDcmto As String, ByVal codigoSeparacion As String)
        Me.idDcmto = idAccion
        Me.nroDocumento = nroDocumento
        Me.rutaDcmto = rutaDcmto
        Me.estado = estado
        Me.desEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
        Me.NombreCompleto = NombreCompleto
        Me.nombreDocumento = nombreDocumento
        Me.fecha = fecha
        Me.idDcmtoRutaDcmto = idDcmtoRutaDcmto
        Me.codigoSeparacion = codigoSeparacion
    End Sub
#End Region

End Class
